open Mocha
open Test_utils

module Block = {}
type t =
  | A0(int)
  | A(int, int)

let v0 = A(0, 1)

module N = {
  module Block = {}
  let v1 = A(0, 1)
}

module Caml_obj = {}

module V = {
  module List = {}
}
let f = (a, b) => a == b

let h = Belt.List.length

describe(__MODULE__, () => {
  test("block_alias_tests", () => {
    let h = Belt.List.length
    eq(__LOC__, h(list{1, 2}), 2)
    ok(__LOC__, f(v0, A(0, 1)))
    eq(__LOC__, v0, N.v1)
  })
})
